home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Generators / L-System / gen-rewrite < prev    next >
Text File  |  1998-10-23  |  884b  |  28 lines
  1. gen-rewrite axiom depth
  2.  
  3. Rewrites axiom at given depth using rewrite rules defined with defsym. Use it to generate melodies, chords, rhythms and velocities. See also gen-lsystem, transform-lsystem and filter-preserve.
  4.  
  5. (initdef)
  6. (defsym g '(g f x < + g > < - g >))
  7. (defsym x '(x < - f f f > < + f f f > f x))
  8. (defsym - '-)
  9. (defsym + '+)
  10. (defsym < '<)
  11. (defsym > '>)
  12.  
  13. (gen-rewrite g 2)
  14. --> (g f x < + g > < - g > x < - f f f > < + f f f > f x < + g 
  15.  f x < + g > < - g > > < - g f x < + g > < - g > >) 
  16.  
  17. (initdef 'mater2)
  18. (defsym g '(g f x < + g > < - g >) :tree 'mater2)
  19. (defsym x '(x < - f f f > < + f f f > f x) :tree 'mater2)
  20. (defsym - '- :tree 'mater2)
  21. (defsym + '+ :tree 'mater2)
  22. (defsym < '< :tree 'mater2)
  23. (defsym > '> :tree 'mater2)
  24.  
  25. (gen-rewrite g 2 'mater2)
  26. --> (g f x < + g > < - g > x < - f f f > < + f f f > f x < + 
  27.  g f x < + g > < - g > > < - g f x < + g > < - g > >) 
  28.